From 88b3fd5cd06a70171e0ecb2a8c13766e385b4446 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sat, 31 Aug 2002 17:22:29 +0000 Subject: [PATCH] (font-lock-change-mode): Avoid changing buffer state in any way. --- lisp/font-core.el | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/lisp/font-core.el b/lisp/font-core.el index b26a86de2dc..e394be7dba2 100644 --- a/lisp/font-core.el +++ b/lisp/font-core.el @@ -218,11 +218,20 @@ your own function which is called when `font-lock-mode' is toggled via ;; Get rid of fontification for the old major mode. ;; We do this when changing major modes. (defun font-lock-change-mode () - (let ((inhibit-read-only t)) + (let ((inhibit-read-only t) + (inhibit-point-motion-hooks t) + (inhibit-modification-hooks t) + (deactivate-mark nil) + (buffer-file-name nil) + (buffer-file-truename nil) + (buffer-undo-list t) + (modified (buffer-modified-p))) (save-restriction (widen) (remove-list-of-text-properties - (point-min) (point-max) '(font-lock-face)))) + (point-min) (point-max) '(font-lock-face))) + (unless modified + (restore-buffer-modified-p nil))) (when font-lock-defaults (font-lock-unfontify-buffer))) -- 2.30.2